unit UUF;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uBaseFormDB, Grids, DBGrids, DB, DBClient, SimpleDS, Menus,
  ImgList, StdActns, ActnList, StdCtrls, ExtCtrls, ComCtrls, Mask, Buttons,
  ToolWin, DBCtrls;

type
  TfUF = class(TfBaseFormDB)
    DBGrid1: TDBGrid;
    scdsSearchBaseUF_SIGLA: TStringField;
    scdsSearchBaseUF_DESCRICAO: TStringField;
    scdsSearchBaseUF_CODIGO: TSmallintField;
    cdsUF: TSimpleDataSet;
    SmallintField1: TSmallintField;
    StringField1: TStringField;
    StringField2: TStringField;
    dsUF: TDataSource;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fUF: TfUF;

implementation

uses UDMDatabase;

{$R *.dfm}

procedure TfUF.FormCreate(Sender: TObject);
begin
  FormDataSet := cdsUF;
  inherited;
end;

end.
